home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD008b.dsk / SMILEY.FACE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  42 lines
  1. 10  REM ***BY JIM LAFARGUE***
  2. 100  HOME 
  3. 110  VTAB 10: PRINT "THIS IS SMILEY-FACE"
  4. 120  VTAB 14: PRINT "JOSHUA'S FIRST COMPUTER GAME"
  5. 130  VTAB 18: PRINT "PRESSING ANY KEY MAKES THE COLOR OF THE"
  6. 140  PRINT : PRINT "BACKGROUND CHANGE--EASY ENOUGH EVEN "
  7. 150  PRINT : PRINT "FOR A 'WER'"
  8. 160  FOR P = 1 TO 4200: NEXT P
  9. 170  GR 
  10. 175  GOSUB 440
  11. 180 X =  PEEK( -16384)
  12. 185  IF X = 27  OR X = 155  THEN  TEXT : HOME : END 
  13. 190 C = X - INT(X/16) *16
  14. 200  COLOR= C
  15. 210  FOR Z = 0 TO 39
  16. 220  HLIN 0,39 AT Z
  17. 230  NEXT Z
  18. 240  IF C = 0  THEN  COLOR= 15: GOTO 260
  19. 250  COLOR= 0
  20. 260  FOR S = 5 TO 10
  21. 270  IF S = 5  OR S = 10  THEN G = 1
  22. 280  HLIN 10 +G,14 -G AT S
  23. 290  HLIN 25 +G,29 -G AT S
  24. 300 G = 0
  25. 310  NEXT S
  26. 320  GOSUB 350
  27. 330  POKE  -16368,0
  28. 340  GOTO 180
  29. 350  FOR S = 17 TO 20
  30. 360  HLIN 18,21 AT S
  31. 370  NEXT S
  32. 380  FOR S = 30 TO 32
  33. 390  HLIN S -21,59 -S AT S
  34. 400  NEXT S
  35. 410  FOR S = 28 TO 29
  36. 420  HLIN 8,10 AT S: HLIN 28,30 AT S
  37. 430  NEXT S
  38. 435  RETURN 
  39. 437  PRINT 
  40. 440  PRINT "PRESS THE 'ESC' BUTTON TO STOP PROGRAM"
  41. 460  PRINT 
  42. 470  RETURN